home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 24 / CU Amiga Magazine's Super CD-ROM 24 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-07].iso / CUCD / Programming / EasyPLUGINs / examples / icongad_demo.e < prev    next >
Encoding:
Text File  |  1998-02-08  |  830 b   |  41 lines
  1. /*
  2.  
  3.   $VER: IconGad Demo V1.10 - By Fabio Rotondo (fsoft@intercom.it)
  4.  
  5.   This source is Public Domain
  6.  
  7.   Part of EasyPLUGINs distribution.
  8.  
  9. */
  10.  
  11. MODULE 'EasyPLUGINs/IconGad', 
  12.        'tools/EasyGUI', 'tools/exceptions'
  13.  
  14. PROC main() HANDLE
  15.   DEF ig=NIL:PTR TO icongad_plugin
  16.  
  17.   NEW ig.init('ram:disk')
  18.  
  19.   easyguiA('Test',
  20.             [ROWS,
  21.               [SBUTTON, {dis}, 'Disable', ig],
  22.               [SBUTTON, {ena}, 'Enable', ig],
  23.               [SPACEV],
  24.               [COLS,
  25.                 [SPACEH],
  26.                 [ICONGAD, {ignore}, ig],     -> Note: ICONGAD keyword.
  27.                 [SPACEH]
  28.               ]
  29.             ]
  30.           )
  31. EXCEPT DO
  32.   report_exception()
  33.   END ig
  34. ENDPROC
  35.  
  36. PROC ignore() IS EMPTY
  37.  
  38. PROC dis(ig:PTR TO icongad_plugin, i) IS ig.disabled()
  39.  
  40. PROC ena(ig:PTR TO icongad_plugin, i) IS ig.disabled(FALSE)
  41.